home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1481.dms / var1481.adf / Scripts / cool.mco < prev    next >
Text File  |  1994-07-07  |  2KB  |  142 lines
  1. color white {
  2.     diff    <1, .9, .9>
  3. }
  4.  
  5. color red {
  6.     diff    <1, 0, 0>
  7.     scoef    50
  8.     srefl    1
  9. }
  10.  
  11. /* **************************************************************** */
  12.  
  13. object Box    /* a simple Box */
  14.  
  15. box {
  16.     loc    <-2, -2, -2>
  17.     v1    <4, 0, 0>
  18.     v2    <0, 4, 0>
  19.     v3    <0, 0, 4>
  20.     patt    white
  21. }
  22.  
  23. endobject    /* Box */
  24.  
  25. /* **************************************************************** */
  26.  
  27. object rod    /* rod to connect Boxes */
  28.  
  29. slice _rod.spin.slice = {
  30.     <.5, 0>,
  31.     <.5, 4>
  32. }
  33.  
  34. spin {
  35.     loc    <0, -2, 0>
  36.     patt    white
  37.     slice    _rod.spin.slice
  38. }
  39.  
  40. endobject    /* rod */
  41.  
  42. /* **************************************************************** */
  43.  
  44. object Boxes    /* two Boxes connected by a rod */
  45.  
  46. translate Box <-4, 0, 0>
  47. child Box
  48. reset Box
  49.  
  50. translate Box <4, 0, 0>
  51. child Box
  52. reset Box
  53.  
  54. translate rod <0, 0, 0>
  55. zrotate rod 90
  56. child rod
  57. reset rod
  58.  
  59. endobject    /* Boxes */
  60.  
  61. /* **************************************************************** */
  62.  
  63. object zbeam
  64.  
  65. xrotate rod 90
  66. instance rod
  67. reset rod
  68.  
  69. endobject
  70.  
  71. /* **************************************************************** */
  72.  
  73.  
  74. object Boxes4
  75.  
  76. translate Boxes <0, 0, -4>
  77. child Boxes
  78. reset Boxes
  79.  
  80. translate Boxes <0, 0, 4>
  81. child Boxes
  82. reset Boxes
  83.  
  84. translate zbeam <4, 0, 0>
  85. child zbeam
  86. reset zbeam
  87.  
  88. translate zbeam <-4, 0, 0>
  89. child zbeam
  90. reset zbeam
  91.  
  92. endobject
  93.  
  94. /* **************************************************************** */
  95.  
  96. object ybeam
  97.  
  98. instance rod
  99. reset rod
  100.  
  101. endobject
  102.  
  103. /* **************************************************************** */
  104.  
  105. object cool_object
  106.  
  107. translate Boxes4 <0, -4, 0>
  108. child Boxes4
  109. reset Boxes4
  110.  
  111. translate Boxes4 <0, 4, 0>
  112. child Boxes4
  113. reset Boxes4
  114.  
  115. translate ybeam <-4, 0, -4>
  116. child ybeam
  117. reset ybeam
  118.  
  119. translate ybeam <4, 0, -4>
  120. child ybeam
  121. reset ybeam
  122.  
  123. translate ybeam <4, 0, 4>
  124. child ybeam
  125. reset ybeam
  126.  
  127. translate ybeam <-4, 0, 4>
  128. child ybeam
  129. reset ybeam
  130.  
  131. sphere {
  132.     patt    red
  133.     loc    <0, 0, 0>
  134.     radius    3.4
  135. }
  136.  
  137. endobject
  138.  
  139. /* **************************************************************** */
  140.  
  141.  
  142.